source(here::here("code/load.R"))

here("data/meta_analyses_raw/DinSchSon2020/Divlit.csv") |>
  read_csv() |>
  mutate(meta_id = "DinSchSon2020",
         std.error = sqrt(vi),
         question = "Does social diversity erode social trust?",
         overall_effect = "both",
         subfield = "CP") |>
  select(meta_id,
         subfield,
         study_year = year_pub,
         study_id = authors,
         question,
         estimate = yi,
         std.error,
         question,
         subset = trust_type,
         overall_effect) |>
  write_csv(here("data/meta_analyses_clean/DinSchSon2020.csv"))
